object Form1: TForm1
  Left = 439
  Height = 228
  Top = 280
  Width = 1024
  Caption = 'Монитор'
  ClientHeight = 228
  ClientWidth = 1024
  DesignTimePPI = 120
  LCLVersion = '3.2.0.0'
  object Button1: TButton
    Left = 430
    Height = 31
    Top = 16
    Width = 94
    Caption = 'Поехали'
    TabOrder = 0
    OnClick = Button1Click
  end
  object DBGrid1: TDBGrid
    Left = 40
    Height = 125
    Top = 56
    Width = 880
    AutoFillColumns = True
    Color = clWindow
    Columns = <    
      item
        Title.Caption = 'PR_KEY'
        Width = 210
        FieldName = 'PR_KEY'
      end    
      item
        Color = clWindow
        Title.Caption = 'homeT_ulica'
        Width = 210
        FieldName = 'homeT_ulica'
      end    
      item
        Title.Caption = 'changeT'
        Visible = False
        FieldName = 'changeT'
      end    
      item
        Title.Caption = 'homeH_ulica'
        Width = 210
        FieldName = 'homeH_ulica'
      end    
      item
        Title.Caption = 'changeH'
        Visible = False
        FieldName = 'changeH'
      end    
      item
        Title.Caption = 'homeDavlenie'
        Width = 210
        FieldName = 'homeDavlenie'
      end    
      item
        Title.Caption = 'changeP'
        Visible = False
        FieldName = 'changeP'
      end>
    DataSource = DataSource1
    TabOrder = 1
  end
  object MySQL80Connection1: TMySQL80Connection
    Connected = False
    LoginPrompt = False
    DatabaseName = 'testilka'
    KeepConnection = True
    Params.Strings = (
      'Port=3306'
    )
    Password = 'Bhbirfvjz71'
    Transaction = SQLTransaction1
    UserName = 'mysqluser'
    CharSet = 'UTF8'
    HostName = '127.0.0.1'
    SkipLibraryVersionCheck = False
    Left = 72
    Top = 35
  end
  object SQLTransaction1: TSQLTransaction
    Active = False
    Database = MySQL80Connection1
    Left = 287
    Top = 35
  end
  object SQLQuery1: TSQLQuery
    MaxIndexesCount = 4
    FieldDefs = <    
      item
        Name = 'PR_KEY'
        DataType = ftLargeint
        Precision = -1
      end    
      item
        Name = 'homeT_ulica'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'changeT'
        DataType = ftSmallint
        Precision = -1
      end    
      item
        Name = 'homeH_ulica'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'changeH'
        DataType = ftSmallint
        Precision = -1
      end    
      item
        Name = 'homeDavlenie'
        DataType = ftFloat
        Precision = -1
      end    
      item
        Name = 'changeP'
        DataType = ftSmallint
        Precision = -1
      end>
    Database = MySQL80Connection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'select * from `zamery`'
    )
    Options = [sqoCancelUpdatesOnRefresh]
    Params = <>
    Macros = <>
    Left = 72
    Top = 112
    object SQLQuery1PR_KEY: TLargeintField
      FieldKind = fkData
      FieldName = 'PR_KEY'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object SQLQuery1homeT_ulica: TFloatField
      FieldKind = fkData
      FieldName = 'homeT_ulica'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1changeT: TSmallintField
      FieldKind = fkData
      FieldName = 'changeT'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object SQLQuery1homeH_ulica: TFloatField
      FieldKind = fkData
      FieldName = 'homeH_ulica'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1changeH: TSmallintField
      FieldKind = fkData
      FieldName = 'changeH'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object SQLQuery1homeDavlenie: TFloatField
      FieldKind = fkData
      FieldName = 'homeDavlenie'
      Index = 5
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Precision = -1
    end
    object SQLQuery1changeP: TSmallintField
      FieldKind = fkData
      FieldName = 'changeP'
      Index = 6
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
  end
  object DataSource1: TDataSource
    DataSet = SQLQuery1
    Left = 160
    Top = 112
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 630
    Top = 23
  end
  object SQLQuery2: TSQLQuery
    FieldDefs = <>
    Database = MySQL80Connection1
    Transaction = SQLTransaction1
    Params = <>
    Macros = <>
    Left = 287
    Top = 112
  end
end
